home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.09 Sep 89 / MacApp Code / Plot - Nelson / MPlot.p < prev    next >
Encoding:
Text File  |  1989-03-05  |  839 b   |  35 lines  |  [TEXT/MPS ]
  1. Program Plot;
  2.  
  3. USES
  4.         { • MacApp }
  5.         UMacApp, 
  6.  
  7.         { • Building Blocks }
  8.         UDialog, UPrinting,
  9.  
  10.         { • Implementation Use }
  11.         SANE, ToolUtils, Fonts, Resources, Script, PickerIntf, Packages,
  12.         
  13.         { • the PlotUNIT }
  14.         UPlot;
  15.  
  16. VAR
  17.     gPlotApplication:     TPlotApplication;        {The application object:}
  18.  
  19.  
  20. {--------------------------------------------------------------------------------------------------}
  21.     { T H E   M A I N   P R O G R A M }
  22.  
  23.     BEGIN
  24.  
  25.     InitUMacApp(8);                     {Initialize the Toolbox, making 8 calls to
  26.                                                  MoreMasters:}
  27.     InitPrinting;                        {Initialize the UPrinting unit:}
  28.  
  29.     NEW(gPlotApplication);                {Allocate a new TPlotApplication object:}
  30.     FailNIL(gPlotApplication);
  31.     gPlotApplication.IPlotApplication(kFileType); {Initialize that new object:}
  32.  
  33.     gPlotApplication.Run;                {Run the application. When it's done, exit.}
  34.     END.
  35.